﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PeriodosbFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PeriodosbBE
        Dim tmpPeriodosb As PeriodosbBE = New PeriodosbBE()
        Try
            With tmpPeriodosb
                .FechaF = convertDTFromDb.convertDateTime(dr.Item("FechaF"))
                .FechaI = convertDTFromDb.convertDateTime(dr.Item("FechaI"))
                .IdCuenta = convertDTFromDb.ConvertShort(dr.Item("IdCuenta"))
                .IdPeriodo = convertDTFromDb.convertInt32(dr.Item("IdPeriodo"))
                .SaldoAct = convertDTFromDb.ConvertDecimal(dr.Item("SaldoAct"))
                .SaldoIni = convertDTFromDb.ConvertDecimal(dr.Item("SaldoIni"))
            End With
            Return tmpPeriodosb
        Catch ex As Exception
            Throw
        Finally
            tmpPeriodosb = Nothing
        End Try
    End Function
End Class
